﻿Imports DataAccessLayer

Public Class BLDatabase

#Region "Declare"

#End Region

#Region "Event"

#End Region

#Region "Overridable"

    Public Function RestoreDatabase(ByVal databaseName As String, ByVal databasePath As String, _
                                    ByVal backupfile As String) As Boolean
        Dim bResult As Boolean = True

        Return bResult
    End Function

    Public Function GetServerName() As DataTable
        Dim oDL As New DLDatabase()
        Return oDL.GetServerName
    End Function

    Public Function GetDatabaseName(ByVal serverName As String, ByVal dbUser As String, ByVal dbPassword As String) _
        As DataTable
        Dim oDL As New DLDatabase()
        Return oDL.GetDatabaseName(serverName, dbUser, dbPassword)
    End Function

#End Region

#Region "Sub/Function"

#End Region
End Class
